home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Rinaldi / HC 2.0 Only / Textoid 3.6.cpt / Textoid 3.6 (US) / stack_-1.xml < prev    next >
Extensible Markup Language  |  1992-07-17  |  2KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.6 (US)</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>3055</cardID>
  8.     <listID>3399</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>-- Generic scriptson openStackif stackIsBeingUsed()then exit openStackif CardTop() = 0then hide menuBarset scroll of cd fld 1 to 0doOpenStuffend openStackon closeStackif stackIsBeingUsed()then exit closeStackif CardTop() = 0then show menuBardoCloseStuffend closeStackfunction CardTop Whatif the version contains "SuperCard"then return SCTop()else return top of cd windowend CardTopfunction SCTopreturn top of windowend SCTopfunction stackIsBeingUsedreturn not (the name of this stack is the name of me)end stackIsBeingUsed-- Custom scriptson doOpenStuffset name of btn id 22 to emptyput TextFont & "," & switch(menu "Font") into line 14¬¨of cd fld "Properties"put return & the windows & return into cd fld "Windows"end doOpenStuffon doCloseStuffget AllWindoids()repeat with i=1 to number of lines of itclose window line i of itend repeatrepeat with i=2 to 6hide btn iend repeatend doCloseStuffon idleif stackIsBeingUsed()then pass idleget (number of lines of the windows > (number of lines of cd fld¬¨"Windows") - 2)if visible of btn 2 ‚↠itthenrepeat with i=2 to 4set visible of btn i to itend repeatend ifend idlefunction AllWindoidsget the windowsrepeat with i=number of lines of it down to 1if return & line i of it & return is in cd fld "Windows"then delete line i of itend repeatreturn itend AllWindoids</script>
  17.     <background id="2661" file="background_2661.xml" name="" />
  18.     <card id="3055" file="card_3055.xml" marked="false" name="" owner="2661" />
  19. </stack>
  20.